home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Moscow ML 1.42 / e_SML / test_getenv.sml < prev   
Encoding:
Text File  |  1997-07-26  |  855 b   |  25 lines  |  [TEXT/Moml]
  1. (*
  2. Moscow ML version 1.42 (July 1997)
  3. Mangled by e & eMake 24 July 1997
  4. Use the Enter key to evaluate an input expression.
  5. - prim_val uname  : unit -> { machine: string,  name: string, release: string }
  6.   = 1 "sml_uname";
  7. > val uname = fn : unit -> {machine : string, name : string, release : string}
  8. - uname();
  9. > val it =
  10.     {machine = "Motorola StarMax", name = "MacOS", release = "7"}
  11.     : {machine : string, name : string, release : string}
  12. - load "Process";
  13. > val it = () : unit
  14. - Process.getEnv "PATH_TRANSLATED";
  15. > val it = SOME "jalaMPW:ml:mosml142:mosml142app" : string option
  16. - Process.getEnv "VERSION";
  17. > val it = SOME "mosml 1.42e" : string option
  18. - Process.getEnv "CAMLRUNPARAM";
  19. > val it = SOME "v=0i=50000s=50000o=20" : string option
  20. - 
  21. *)
  22.  
  23. prim_val uname  : unit -> { machine: string,  name: string, release: string }
  24.   = 1 "sml_uname";
  25.